# Save code in a file "demo.r" and run with 2 processors by
# > mpiexec -np 2 Rscript demo.r
### Initial
library(pbdMPI, quietly = TRUE)
init()
if(comm.size() != 2){
comm.cat("2 processors are requried.\n", quiet = TRUE)
finalize()
}
### Examples
if(comm.rank() == 0){
a <- c(T, F, NA)
} else{
a <- T
}
comm.print(comm.any(a))
comm.print(comm.all(a))
comm.print(comm.any(a, na.rm = TRUE))
comm.print(comm.all(a, na.rm = TRUE))
### Finish
finalize()
Run the code above in your browser using DataLab